%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -*- Mode: Latex -*- %%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Trees-Genealogy3.tex --- Genealogy tree - example 3
%%                          (must be compile twice)
%%
%% Authors         : Francoise COUSTILLAS <Francoise.Coustillas@dept.edfgdf.fr>
%%                   and Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
%% Created the     : September 1996
%% Last mod. by    : hv
%% Last mod. the   : 2004-11-14
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\documentclass[a4paper,12pt]{article}

\usepackage{pst-tree}

\newcommand{\nbr}[1]{\oldstylenums{#1}}
\newcommand{\fup}[1]{% Adapted from the `french' package
  \leavevmode%\raise+0.55ex
  \hbox{\tiny\lowercase{#1}}%\kern+.17em
}

% Defaut edge
\renewcommand{\psedge}{\ncangle[angleB=180,armB=0.6\baselineskip]}

% Macro to define one person
\newcommand{\Person}[3][]{%
\TR[#1]{\setlength{\tabcolsep}{0mm}\begin{tabular}[t]{#2}#3\end{tabular}}%
\UpdateNode% Execute it if defined to change the position of the node
\gdef\UpdateNode{}} % Remove the new definition of node if it was defined

% Default to update later node position: empty
\def\UpdateNode{}%

% Definition of an exit node different from the entrance one
\newcommand{\ExitNode}[1]{%
\rnode{NodeTemp}{#1}
\gdef\UpdateNode{\SameNode{\pssucc}{NodeTemp}}}

% Denis Girou <Denis.Girou@idris.fr> - May 15, 1997
% To give an alias name to a previous defined one
% \SameNode{B}{A} define a node B equivalent to the predefined node A
% Useful for special connections in trees
\makeatletter
\def\SameNode#1#2{%
\pst@getnode{#1}\pst@tempa
\pst@getnode@{#2}\pst@tempb
\pst@Verb{\pst@nodedict \pst@tempa \pst@tempb def end}}
% From \pst@getnode, but to return the name of node without the first /
\def\pst@getnode@#1#2{%
\pst@expandafter\pst@@getnode@{#1},,\@nil#2}
\def\pst@@getnode@#1,#2,#3\@nil#4{%
\ifx\@empty#3\@empty
\edef#4{N@\pst@zapspace#1 \@empty\space}%
\else
\pst@cntg=#1\relax
\pst@cnth=#2\relax
\edef#4{N@M-\ifnum\psmatrixcnt=\z@ 1\else\the\psmatrixcnt\fi
-\the\pst@cntg-\the\pst@cnth\space}%
\fi}
\makeatother

% Definition of people
\newcommand{\AntoineBelliard}{%
\Person{l}{Antoine\\
  B\textsc{elliard}\\
  (\nbr{1749}, S\fup{t}-Lager --\\
  \nbr{1838}, \textit{id.})\\
  bgs de Lyon,\\
  ma\^\i{}tre de poste,\\
  p\fup{taire} et cultiv.\\
  \`a S\fup{t}-Lager,\\
  x \nbr{1774}, Lyon\\
  \ExitNode{la Plati\`ere}\\
  Marguerite\\
  L\textsc{afond}\\
  (\nbr{1757}, S\fup{t}-Lager --\\
  \nbr{1819}, \textit{id.})\\
  fille de\\
  Beno\^\i{}t, m\fup{d} de\\
  vins, et de\\
  Marguerite\\
  Delaye}}

\newcommand{\MarianneBelliard}{%
\Person{l}{Marianne B\textsc{elliard}\\
  (\nbr{1775}, S\fup{t}-Lager --\\
  \nbr{1843}, Chaneins)\\
  \ExitNode{x \nbr{1794}, S\fup{t}-Lager}\\
  Claude-Fran\c cois\\
  C\textsc{harveriat}\\
  (\nbr{1765}, Montceaux --\\
  \nbr{1819}, Chaneins)\\
  p\fup{taire} et cultiv.}}

\newcommand{\MargueriteBelliard}{%
\Person{l}{Marguerite B\textsc{elliard}\\
  (\nbr{1779}, S\fup{t}-Lager --\\
  \nbr{1852}, Quinci\'e)\\
  x \nbr{1799}, Belleville,\\
  \ExitNode{Rh\^one}\\
  Jean M\textsc{athieu}\\
  (\nbr{1780}, Lyon, p\fup{sse}\\
  S\fup{t}-Pierre-le-Vieux --\\
  \nbr{1859}, Quinci\'e)\\
  p\fup{taire} rentier,\\
  maire de Quinci\'e}}

\newcommand{\LouiseBelliard}{%
\Person{l}{Louise B\textsc{elliard}\\
  (\nbr{1786}, S\fup{t}-Lager --\\
  \nbr{1830}, Villefr.-s.-S.)\\
  \ExitNode{x \nbr{1809}, S\fup{t}-Lager}\\
  Philippe S\textsc{auzey}\\
  (\nbr{1784}, Lanci\'e --\\
  \nbr{1868}, Lyon \nbr{2}\fup{e})\\
  ch\fup{er} de la L.H.,\\
  d\'eput\'e, m\fup{bre} du\\
  cons. g\'en. du Rh\^one,\\
  maire de S\fup{t}-Lager,\\
  avoc., cons\fup{er} \`a la cour}}

\newcommand{\FrancoiseBelliard}{%
\Person{l}{Fran\c coise B\textsc{elliard}\\
  (\nbr{1789}, S\fup{t}-Lager --\\
  \nbr{1852}, Lyon)\\
  \ExitNode{x \nbr{1813}, S\fup{t}-Lager}\\
  Jean-Claude\\
  R\textsc{oy\'e} B\textsc{elliard}\\
  (\nbr{1786}, Villefr.-s.-S. --\\
  \nbr{1855}, Lyon \nbr{2}\fup{e})\\
  pdt du trib. de comm.\\
  de Villefr.-s.-S.,\\
  n\'eg\fup{t}, p\fup{taire} rentier}}

\newcommand{\EmilieCharveriat}{%
\Person{l}{\'Emilie C\textsc{harv\'eriat}\\
  (\nbr{1801}, Chaneins --\\
  \nbr{1870}, Lyon \nbr{5}\fup{e})\\
  \ExitNode{x \nbr{1828}, S\fup{t}-Lager}\\
  Constant V\textsc{itton}\\
  (\nbr{1795}, Kreuzlingen, Suisse --\\
  \nbr{1871}, Lyon \nbr{5}\fup{e})\\
  avocat, p\fup{taire} rentier}}

\newcommand{\EugenieMathieu}{%
\Person{l}{Eug\'enie M\textsc{athieu}\\
  (\nbr{1800}, S\fup{t}-Julien, Rh\^one --\\
  \nbr{1875}, Lyon \nbr{1}\fup{er})\\
  x \nbr{1823}, Quinci\'e\\
  Ant\fup{e} C\textsc{harv\'eriat}\\
  (\nbr{1795}, Chaneins --\\
  \nbr{1883}, Lyon \nbr{1}\fup{er})\\
  notaire}}

\newcommand{\AbelSauzey}{%
\Person{l}{Abel S\textsc{auzey}\\
  (\nbr{1824}, Villefr.-s.-S. --\\
  \nbr{1889}, Lyon \nbr{2}\fup{e})\\
  ch\fup{er} de la L.H., pdt du cons.\\
  de pr\'ef. du Rh\^one, avoc.\\
  x \nbr{1848}, Villi\'e, auj.\\
  \ExitNode{Villi\'e-Morgon}\\
  Cladie M\textsc{alachard}\\
  (\nbr{1826}, Villi\'e -- \nbr{1904}, \textit{id.})\\
  fille de J\fup{n} Bap\fup{te} Phil\fup{t}, m\fup{bre}\\
  du cons. g\'en. du Rh\^one,\\
  maire de Villi\'e, p\fup{taire},\\
  et de M\fup{ie} Claudine Lafond}}

\newcommand{\AglaeRoyeBelliard}{%
\Person{l}{Agla\"e R\textsc{oy\'e}-B\textsc{elliard}\\
  (\nbr{1818}, Villefr.-s.-S. --\\
  \nbr{1881}, \'Ecully)\\
  \ExitNode{x \nbr{1841}, Villefr.-s.-S.}\\
  Louis R\textsc{ichard}-R\textsc{oy\'e}\\
  (\nbr{1817}, Lyon --\\
  \nbr{1885}, Lyon \nbr{2}\fup{e})\\
  p\fup{taire} rentier}}

\newcommand{\AnatoleRoyeBelliard}{%
\Person{l}{Anatole R\textsc{oy\'e}-B\textsc{elliard}\\
  (\nbr{1827}, Villefr.-s.-S. --\\
  \nbr{1894}, Vienne)\\
  ch\fup{er} de la L.H.,\\
  \rnode{ANRB}{conseiller \`a la cour}}}

\newcommand{\LouiseVitton}{%
\Person{l}{Louise V\textsc{itton}\\
  (\nbr{1840}, Chaneins --\\
  \nbr{1904}, Lyon \nbr{2}\fup{e})\\
  x \nbr{1872}, Lyon \nbr{5}\fup{e}\\
  Paul V\textsc{igi\`ere} \textsc{d'}A\textsc{nval}\\
  (\nbr{1832}, Lyon --\\
  \nbr{1893}, Belleville, Rh\^one)\\
  ch\fup{er} de la L.H.,\\
  capitaine adj.-major}}

\newcommand{\MarieLouiseSauzey}{%
\Person{l}{M\fup{ie}-Louise S\textsc{auzey}\\
  (\nbr{1861}, Lyon \nbr{2}\fup{e} --\\
  \dag{} \nbr{1938}, \textit{id.})\\
  x \nbr{1883}, Lyon \nbr{2}\fup{e}\\
  Octave P\textsc{ayen}\\
  (\nbr{1853}, Lyon \nbr{1}\fup{er} --\\
  \nbr{1929}, Lyon \nbr{2}\fup{e})\\
  n\'egociant, associ\'e\\
  d'agent de change}}

\newcommand{\PierreSauzey}{%
\Person{l}{Pierre S\textsc{auzey}\\
  (\nbr{1864}, Lyon \nbr{2}\fup{e} --\\
  \nbr{1924}, \textit{id.})\\
  d\'ecor\'e de la\\
  m\'edaille militaire\\
  x \nbr{1900}, Lyon \nbr{2}\fup{e}\\
  Marie B\textsc{aboin}\\
  (\nbr{1873}, Lyon \nbr{2}\fup{e} --\\
  \nbr{1949}, \textit{id.})\\
  fille d'Aug\fup{te}, n\'eg\fup{t}, et\\
  d'Esther Isabelle Charrin}}

\newcommand{\AnatoleSauzey}{%
\Person{l}{Anatole S\textsc{auzey}\\
  (\nbr{1864}, Lyon \nbr{2}\fup{e} --\\
  \nbr{1939}, Paris ... ?)\\
  x \nbr{1919}, Paris \nbr{16}\fup{e}\\
  Ang\`ele E\textsc{schalier}\\
  (\nbr{1875}, Aubenas --\\
  \nbr{1963}, Paris \nbr{15}\fup{e})\\
  fille de Jacques Louis,\\
  tailleur d'habits, et de\\
  M\fup{ie}-Louise Tourvieille}}

\newcommand{\FannyRichard}{%
\Person{l}{Fanny R\textsc{ichard}\\
  (\nbr{1842}, Lyon --\\
  \rnode{FR}{\nbr{1927}, Lyon \nbr{4}\fup{e})}}}

\pagestyle{empty}

\begin{document}

\scriptsize

\begin{center}
  {\Large Oncles et tantes \`a la mode de Bretagne et cousins issus} \\
  {\Large de germains de Louise Vitton, c\^ot\'e Belliard, signataires} \\
  {\Large de son acte de mariage religieux} \\[1cm]

  \fbox{\makebox[0.98\textwidth]{%
    \pstree[treemode=R,treesep=\baselineskip,levelsep=*2.5mm,nodesep=1mm,
            href=-1,xbbd=0.2,linewidth=0.15mm]
           {\AntoineBelliard}
           {\pstree{\MarianneBelliard}
                   {\pstree{\EmilieCharveriat}
                           {\LouiseVitton}}
                    \pstree{\MargueriteBelliard}
                           {\raisebox{\baselineskip}{\EugenieMathieu}}
                    \pstree{\LouiseBelliard}
                           {\raisebox{4\baselineskip}{%
                            \pstree{\AbelSauzey}
                                   {\raisebox{-4\baselineskip}{%
                                    \MarieLouiseSauzey
                                    \PierreSauzey
                                    \AnatoleSauzey}}}}
                    \raisebox{26.5\baselineskip}{%
                      \pstree{\FrancoiseBelliard}
                             {\raisebox{-2\baselineskip}{%
                                \pstree{\AglaeRoyeBelliard}
                             {\raisebox{-20\baselineskip}{\FannyRichard}}
                              \AnatoleRoyeBelliard}}}}}}
\end{center}

% Special link between Anatole Roye-Belliard and Fanny Richard
\ncbar[angle=-90,arm=0.4\baselineskip,nodesep=0.4\baselineskip,
       linewidth=0.15mm]{ANRB}{FR}
\ncput*{x \nbr{3}-\nbr{4}-\nbr{1862} \'Ecully}

\end{document}
